|
|  Russite Four Winds
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Four Winds"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  1
  WIDTH   8 * CW
  HEIGHT  8 * CH

  ZeroToWin 52 - CARDSIN$2

| Foundations

|---North
  FOUNDATION
    X 3 * CW + CW / 2
    Y 0
    DEAL 1,1
    DealCard c1
    ID 2
  END
|---South
  FOUNDATION
    X 3 * CW + CW / 2
    Y 7 * CH
    DEAL 1,1
    DealCard h1
    ID 2
  END
|---West
  FOUNDATION
    X 0 
    Y 3 * CH + CH / 2
    DEAL 1,1
    DealCard s1
    ID 2
  END
|---East
  FOUNDATION
    X 7 * CW
    Y 3 * CH + CH / 2
    DEAL 1,1
    DealCard d1
    ID 2
  END

| Stacks

  FOR stack = 2 TO 5
|---North
    STACK
      X stack * CW
      Y CH
      FIRST 1,13,c
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS ClickFly AppendOneOnly PaintLast
      ID 1
    END
|---South
    STACK
      X stack * CW
      Y 6 * CH
      FIRST 1,13,h
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS ClickFly AppendOneOnly PaintLast
      ID 1
    END
|---West
    STACK
      X CW
      Y stack * CH
      FIRST 1,13,s
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS ClickFly AppendOneOnly PaintLast
      ID 1
    END
|---West
    STACK
      X 6 * CW
      Y stack * CH
      FIRST 1,13,d
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS ClickFly AppendOneOnly PaintLast
      ID 1
    END
  END

| Stock

  STACK
    X 3 * CW
    Y 3 * CH + CH / 2 
    DEAL 31
    DEALTO 4,1
    TAKEFROM 4,1
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

| Waste

  STACK
    X 4 * CW
    Y 3 * CH + CH / 2 
    DEAL 1,1
    MAX 0
    DRAGUPTO 1
    FLAGS PaintLast
    ID 4
  END

END
